home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19970929-19971216 / 000180_news@newsmaster….columbia.edu _Sun Oct 26 00:59:37 1997.msg < prev    next >
Internet Message Format  |  2020-01-01  |  4KB
  1. Return-Path: <news@newsmaster.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id AAA17362
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Sun, 26 Oct 1997 00:59:37 -0400 (EDT)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id AAA25748
  7.     for kermit.misc@watsun; Sun, 26 Oct 1997 00:59:36 -0400 (EDT)
  8. Path: news.columbia.edu!psinntp!news.idt.net!news-peer.gsl.net!news.gsl.net!gip.net!news-peer.sprintlink.net!news-pull.sprintlink.net!news-in-east.sprintlink.net!news.sprintlink.net!Sprint!204.122.16.44!news.eskimo.com!jimo
  9. From: jimo@eskimo.com (Jim Osborn)
  10. Newsgroups: comp.protocols.kermit.misc
  11. Subject: Re: login script beeps unexpectedly
  12. Date: 25 Oct 1997 22:56:10 GMT
  13. Organization: Eskimo North (206) For-Ever
  14. Lines: 75
  15. Message-ID: <62ttea$l2o$1@eskinews.eskimo.com>
  16. References: <62ejvl$fpk$1@eskinews.eskimo.com> <62h9lb$pbm$1@eskinews.eskimo.com> <62icqn$582$1@apakabar.cc.columbia.edu> <62m0oj$a7h$1@eskinews.eskimo.com>
  17. NNTP-Posting-Host: eskimo.com
  18. Xref: news.columbia.edu comp.protocols.kermit.misc:7960
  19.  
  20. In article <62m0oj$a7h$1@eskinews.eskimo.com>,
  21. Jim Osborn <jimo@eskimo.com> wrote:
  22. >I will clean up those unchecked failure possibilities, but I think
  23. >the mystery beep must come from elsewhere.  Unfortunately (or is
  24. >it really fortunately?:) I don't get offered that awful modem often
  25. >enough to test the script at will.  I'll try relaxing the xif
  26. >conditions to something more frequent and let you know how the
  27. >cleanup influences things.
  28.  
  29. After more experimentation, I've found a workaround.  I'd be curious
  30. what this indicates the cause is, and for pointers on how to avoid
  31. the root problem in the first place.
  32.  
  33. The workaround is to leave out the echo statement when aborting the
  34. login process.  It seems any echo statement causes a beep, even though
  35. no beep is indicated in the echo statement.  For example:
  36.  
  37. define eskimo {
  38.     while not defined \%1 {
  39.         askq \%1 {Eskimo Password: }
  40.     }
  41.     :retry
  42.     dial 258-0759
  43.     if fail goto retry
  44.     in 30 {Your Selection ==>}            #Initial selector
  45.     if fail goto retry
  46. echo {\12\13This is really wierd!}        #beeps!
  47. pause 5
  48.     output 1\13                            #Select Eskimo
  49.     in 60 login:                        #Start login process
  50.     if fail goto retry
  51.     ...
  52.  
  53. beeps when the echo text appears on the screen.
  54.  
  55. My guess is that Kermit doesn't like echoing things while dialing/
  56. connecting, but I can't imagine why it would object.  Anyway,
  57. removing the echo statement from the abort process prevents an
  58. unwanted beep, leaving the desired one free to announce success.
  59.  
  60. Jim
  61.  
  62. Here's the current version.  If you can suggest improvements, lemme know. :)
  63.  
  64. define eskimo {
  65.     while not defined \%1 {
  66.         askq \%1 {Eskimo Password: }
  67.     }
  68.     :retry
  69.     dial 258-0759
  70.     if fail goto retry
  71.     in 30 {Your Selection ==>}            #Initial selector
  72.     if fail goto retry
  73.     output 1\13                            #Select Eskimo
  74.     in 60 login:                        #Start login process
  75.     if fail goto retry
  76.     out jimo\13                            #Look for: Hello ,CLI,,27,<day-of-week>@seattle2
  77.     clear input
  78.     in 30 {Welcome to eskimo.com.}            #Read Annex ID string
  79.     if fail goto retry
  80.     xif \find({CLI,,27},\v(input)) {        #Start over if toxic modem
  81.         xif \find({@seattle2},\v(input)) {
  82. #            echo {\12\13Aborting 27,,2}        #this causes unwanted beep
  83.             goto retry
  84.         }
  85.     }
  86.     in 30 Password:
  87.     if fail goto retry
  88.     out \%1\13
  89.     in 60 {Main Command?}
  90.     if fail goto retry
  91.     out {!}
  92.     echo \007    #^G
  93.     connect /quietly
  94. }